home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 November / 64er_Magazin_88-11_1988_Markt__Technik_de_Side_A.d64 / make sprite-pics (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  89 lines
  1. 2 a=a+1:ifa=1thenload"mpgetsprit",8,8
  2. 3 ifa=2thenload"aufruf",8,8
  3. 4 ifa=3thenload"view3",8,8
  4. 5 ifa=4thenload"view4",8,8
  5. 6 ifa=5thenload"view5",8,8
  6. 9 poke56,159:poke52,159:clr:gosub9000
  7. 10 poke53281,0:poke53280,0:poke808,225:poke53270,200
  8. 20 print"[147]full screen sprite-pics
  9. 25 [153]"by helmut burgemeister
  10. 30 print"[155]  1. bild laden
  11. 40 [153]"  2. bild als run-file speichern
  12. 50 print"  3. bild als film-bild speichern
  13. 60 [153]"  4. art: koala painter (4 farbig!)
  14. 70 print"  5. directory
  15. 80 [153]"  6. disk-command
  16. 90 print"  7. bild nochmals aufrufen
  17. 95 [141]4100
  18. 100 [151]198,0:[146]198,1:[161]a$
  19. 110 [139]a$[179]"1"[176]a$[177]"7"[167]100
  20. 120 a[178][197](a$)
  21. 140 [145]a[137]1000,2000,3000,4000,5000,6000,7000
  22. 190 [137]100
  23. 1000 [153]"loadbild laden: (blank to exit)
  24. 1010 print"name des "ar$(b)"    bildes  $[157][157][157]";
  25. 1020 l$="":inputl$:ifl$="$"thengosub8000:goto1010
  26. 1025 ifl$=""orl$="*"then10
  27. 1030 open2,8,2,l$+",p,r"
  28. 1040 open1,8,15:input#1,f,f$,q,v:close1:close2
  29. 1050 iff<>0thenprint""f","f$","q","v
  30. 1060 p=1
  31. 1070 ad=8192:ifb=3thenad=8192-114
  32. 1072 ifb=4thenad=7192-24
  33. 1080 sys32768,l$,ad
  34. 1082 poke708,0
  35. 1085 ifb=0orb=1orb=3thenpoke708,255
  36. 1090 goto7000
  37. 2000 print"[147]bild als run-file speichern
  38. 2010 s$[178]"":[133]" name zum speichern  $cmdcmdcmd";s$
  39. 2020 [139]s$[178]"$"[167][141]8000:[137]2010
  40. 2025 [139]s$[178]""[167]10
  41. 2030 [158]32768[170]12,s$
  42. 2049 [159]1,8,15:[132]1,f,f$,q,v:[160]1
  43. 2050 [139]f[179][177]0[167][153]""f","f$","q","v:[137]2010
  44. 2090 [137]10
  45. 3000 [153]"loadfilm-bild speichern
  46. 3010 s$="":input"  bild-nummer  $[157][157][157]";s$
  47. 3020 ifs$="$"thengosub8000:goto3010
  48. 3025 ifs$=""then10
  49. 3030 sys32768+3,s$,24576,28160
  50. 3032 open1,8,15:input#1,f,f$,q,v:close1
  51. 3033 iff<>0thenprint""f","f$","q","v
  52. 3035 print"farben fuer filmerstellung:
  53. 3040 [153]"listhintergrundfarbe :"[194](49249)
  54. 3050 [153]"sprite-farbe :"[194](49255)
  55. 3055 [139][194](708)[178]0[167]3080
  56. 3060 [153]"multi-farbe 1:"[194](49253)
  57. 3070 [153]"multi-farbe 2:"[194](49254)
  58. 3080 [153]"  bitte taste wenn notiert ..."
  59. 3082 [151]198,0:[146]198,1:[161]a$
  60. 3090 [137]10
  61. 4000 b[178]b[170]1:[139]b[178]7[167]b[178]0
  62. 4010 [151]214,12:[153]:[151]211,10:[153]ar$(b)
  63. 4090 [137]100
  64. 4100 [151]214,12:[153]:[151]211,10:[153]ar$(b):[142]
  65. 5000 [141]8000:[137]10
  66. 6000 [153]"loaddisk commands
  67. 6005 poke631,34:poke198,1
  68. 6010 l$="":input" kommando ";l$
  69. 6020 ifl$=""then6050
  70. 6030 open1,8,15:print#1,l$:close1
  71. 6050 open1,8,15:input#1,f,f$,x,y:close1
  72. 6060 print" status:"f","f$","x","y"
  73. 6070 [153]" taste ..."
  74. 6080 [151]198,0:[146]198,1:[161]a$
  75. 6090 [137]10
  76. 7000 [158]32768[170]9
  77. 7090 [137]10
  78. 8000 [153]"load": [158]32768[170]6
  79. 8010 [139][194](203)[178]64[167][153]"  bitte taste ...":[151]198,0:[146]198,1:[161]a$
  80. 8090 [142]
  81. 9000 ar$(0)[178]"koala painter (4 farbig!)  "
  82. 9010 ar$(1)[178]"blazing battles (4 farbig!)
  83. 9020 ar$(2)="hi-eddie                   "
  84. 9030 ar$(3)="paint magic                "
  85. 9040 ar$(4)="doodle                     "
  86. 9050 ar$(5)="normale bitmap             "
  87. 9060 ar$(6)="art's studio               "
  88. 9100 return
  89.